home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / hardware / mltscn20.lha / adpro / commands2 / SCAN_8_1_4.adpro < prev   
Text File  |  1995-09-04  |  1KB  |  49 lines
  1. /*
  2. ** DisplayImage.adproapp
  3. **
  4. ** $VER: DisplayImage.adproapp 1.0.0 (29.1.94)
  5. **
  6. ** This ARexx script for ADPro is intended to be used as the script that
  7. ** gets executed when one or more files is dropped on the ADPro AppWindow
  8. ** or AppIcon.  As such, you should set the APPSCRIPT tool type or
  9. ** CLI argument to this script's filename.
  10. **
  11. ** This app script allows you to load and display the first image dropped
  12. ** on the AppWindow/AppIcon/AppMenu.  If more than one image is dropped,
  13. ** they will be ignored.
  14. **
  15. ** This script requires ADPro v2.5.0 (or higher).
  16. **
  17. ** Copyright © 1993-1994 ASDG, Incorporated
  18. ** All Rights Reserved
  19. */
  20.  
  21. ADDRESS MULTISCAN
  22.  
  23. SET_MODE 5
  24. SET_AREA 0 0 176 245
  25. SCAN_IMAGE FILE "dh1:scan"
  26. SCAN_CONVERT INFILE "dh1:scan" OUTFILE "dh1:scan.iff"
  27.  
  28.  
  29. ADDRESS "ADPro"
  30.  
  31.  
  32. NL = '0A'X
  33. SQ = '27'X
  34. DQ = '22'X
  35. TRUE  = 1
  36. FALSE = 0
  37.  
  38.  
  39. /*
  40. ** Load only the first image.
  41. */
  42.  
  43. LOADER "UNIVERSAL" "dh1:scan.iff"
  44. IF (RC ~= 0) THEN DO
  45.         ADPRO_TO_FRONT
  46.         OKAY1 "Error loading file:" || NL ||,"test1.iff"
  47.         CALL ErrorOut 10
  48. END
  49.